Con log:"Init" from:"Collections".

(Mixin new) setName: "IndexedCollection".
Repl methodIn: IndexedCollection.
do: c [
    (Range from:0 to: (self length)) do:[i:||
        c value:(self at:i) value:i.
    ]
]

Vector mixin: IndexedCollection.